The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Object.dxr/00087.ls

Text File | 1998-11-19 | 1.6 KB | 60 lines

global vscrollpos, hscrollpos, scrollline, zoompctsprite, vtotalscroll, htotalscroll, vmaxscroll, hmaxscroll

on initial
  set scrollline to 25
  set zoompctsprite to 2
  set vscrollpos to abs(the top of sprite zoompctsprite)
  set hscrollpos to abs(the left of sprite zoompctsprite)
  set vtotalscroll to the height of member the memberNum of sprite zoompctsprite
  set htotalscroll to the width of member the memberNum of sprite zoompctsprite
  set vmaxscroll to vtotalscroll - (the stageBottom - the stageTop)
  set hmaxscroll to htotalscroll - (the stageRight - the stageLeft)
  puppetSprite(zoompctsprite, 1)
end

on scrollup corner
  set vscrollpos to vscrollpos - scrollline
  if vscrollpos < 1 then
    set vscrollpos to 1
  end if
  if voidp(corner) then
    setscrollbox()
  end if
end

on scrolldown corner
  set vscrollpos to vscrollpos + scrollline
  if vscrollpos > vmaxscroll then
    set vscrollpos to vmaxscroll
  end if
  if voidp(corner) then
    setscrollbox()
  end if
end

on scrollleft corner
  set hscrollpos to hscrollpos - scrollline
  if hscrollpos < 1 then
    set hscrollpos to 0
  end if
  if voidp(corner) then
    setscrollbox()
  end if
end

on scrollright corner
  set hscrollpos to hscrollpos + scrollline
  if hscrollpos > hmaxscroll then
    set hscrollpos to hmaxscroll
  end if
  if voidp(corner) then
    setscrollbox()
  end if
end

on setscrollbox
  set the cursor of sprite zoompctsprite to 200
  set the locV of sprite zoompctsprite to (vtotalscroll / 2) - vscrollpos
  set the locH of sprite zoompctsprite to (htotalscroll / 2) - hscrollpos
end